﻿Public Class Mensaje
    Dim _cia, _suc, _usuario, _codpick, _descrip As String
    Dim _fecha As Date

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, usu As String, codpick As String, desc As String)
        Me._cia = cia
        Me._suc = suc
        Me._usuario = usu
        Me._codpick = codpick
        Me._descrip = desc
    End Sub

    Public Property CIA() As String
        Get
            Return _cia
        End Get
        Set(value As String)
            _cia = value
        End Set
    End Property

    Public Property SUC() As String
        Get
            Return _suc
        End Get
        Set(value As String)
            _suc = value
        End Set
    End Property

    Public Property USUARIO() As String
        Get
            Return _usuario
        End Get
        Set(value As String)
            _usuario = value
        End Set
    End Property

    Public Property COD_PERSONA() As String
        Get
            Return _codpick
        End Get
        Set(value As String)
            _codpick = value
        End Set
    End Property

    Public Property DESCRIPCION() As String
        Get
            Return _descrip
        End Get
        Set(value As String)
            _descrip = value
        End Set
    End Property
End Class
